home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / go / prog / golatex.taz / golatex / mf / go.mf < prev    next >
Encoding:
Text File  |  1991-11-27  |  7.1 KB  |  334 lines
  1. mode_setup;
  2.  
  3. define_pixels(size);
  4. define_pixels(line_thickness,border_line_thickness);
  5.  
  6. picture black_circle;
  7.  
  8. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  9.  
  10. def set_black_circle =
  11.   currentpicture := nullpicture;
  12.   pickup pencircle scaled line_thickness;
  13.   lft x1=1/22size; y1=1/2size;
  14.   rt x2=23/22size; y2=1/2size;
  15.   filldraw z1..z2..cycle;
  16.   black_circle := currentpicture;
  17.   clearxy; clearit; clearpen;
  18. enddef;
  19.  
  20. set_black_circle;
  21.  
  22. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  23.  
  24. beginchar(0,24/22size#,23/22size#,1/22size#); "punkt hoshi";
  25.   pickup pencircle scaled line_thickness;
  26.   z1=(0,11/24w);
  27.   z2=(.5w,h);
  28.   z3=(w,11/24w);
  29.   z4=(.5w,-d);
  30.   draw z1..z3;
  31.   draw z2..z4;
  32.   z5=(.5w-.1size,11/24w);
  33.   z6=(.5w+.1size,11/24w);
  34.   filldraw z5..z6..cycle;
  35. showit;
  36. endchar;
  37.  
  38. % stop"";
  39.  
  40. beginchar(1,24/22size#,23/22size#,1/22size#); "pelny krzyz";
  41.   pickup pencircle scaled line_thickness;
  42.   z1=(0,11/24w);
  43.   z2=(.5w,h);
  44.   z3=(w,11/24w);
  45.   z4=(.5w,-d);
  46.   draw z1..z3;
  47.   draw z2..z4;
  48. showit;
  49. endchar;
  50.  
  51. % stop"";
  52.  
  53. beginchar(2,24/22size#,23/22size#,1/22size#); "lewy brzeg";
  54.   pickup pencircle scaled line_thickness;
  55.   lft x1=.5w; y1=11/24w;
  56.   z2=(.5w,h);
  57.   z3=(w,11/24w);
  58.   z4=(.5w,-d);
  59.   draw z1..z3;
  60.   pickup pencircle scaled border_line_thickness;
  61.   draw z2..z4;
  62. showit;
  63. endchar;
  64.  
  65. % stop"";
  66.  
  67. beginchar(3,24/22size#,23/22size#,1/22size#); "prawy brzeg";
  68.   pickup pencircle scaled line_thickness;
  69.   z1=(0,11/24w);
  70.   z2=(.5w,h);
  71.   rt x3=.5w; y3=11/24w;
  72.   z4=(.5w,-d);
  73.   draw z1..z3;
  74.   pickup pencircle scaled border_line_thickness;
  75.   draw z2..z4;
  76. showit;
  77. endchar;
  78.  
  79. % stop"";
  80.  
  81. beginchar(4,24/22size#,23/22size#,1/22size#); "gorny brzeg";
  82.   pickup pencircle scaled border_line_thickness;
  83.   z1=(0,11/24w);
  84.   x2=.5w; top y2=11/24w;
  85.   z3=(w,11/24w);
  86.   z4=(.5w,-d);
  87.   draw z1..z3;
  88.   pickup pencircle scaled line_thickness;
  89.   draw z2..z4;
  90. showit;
  91. endchar;
  92.  
  93. % stop"";
  94.  
  95. beginchar(5,24/22size#,23/22size#,1/22size#); "dolny brzeg";
  96.   pickup pencircle scaled border_line_thickness;
  97.   z1=(0,11/24w);
  98.   z2=(.5w,h);
  99.   z3=(w,11/24w);
  100.   x4=.5w; bot y4=11/24w;
  101.   draw z1..z3;
  102.   pickup pencircle scaled line_thickness;
  103.   draw z2..z4;
  104. showit;
  105. endchar;
  106.  
  107. % stop"";
  108.  
  109. beginchar(6,24/22size#,23/22size#,1/22size#); "lewy gorny rog";
  110.   pickup pencircle scaled border_line_thickness;
  111.   lft x1=.5w; y1=11/24w;
  112.   x2=.5w; top y2=11/24w;
  113.   z3=(w,11/24w);
  114.   z4=(.5w,-d);
  115.   draw z1..z3;
  116.   draw z2..z4;
  117.   pickup penrazor scaled border_line_thickness;
  118.   z5=(.5w,11/24w+.5border_line_thickness); 
  119.   z6=(.5w,11/24w-.5border_line_thickness); 
  120.   draw z5..z6;
  121. showit;
  122. endchar;
  123.  
  124. % stop"";
  125.  
  126. beginchar(7,24/22size#,23/22size#,1/22size#); "prawy gorny rog";
  127.   pickup pencircle scaled border_line_thickness;
  128.   z1=(0,11/24w);
  129.   x2=.5w; top y2=11/24w;
  130.   rt x3=.5w; y3=11/24w;
  131.   z4=(.5w,-d);
  132.   draw z1..z3;
  133.   draw z2..z4;
  134.   pickup penrazor scaled border_line_thickness;
  135.   z5=(.5w,11/24w+.5border_line_thickness); 
  136.   z6=(.5w,11/24w-.5border_line_thickness); 
  137.   draw z5..z6;
  138. showit;
  139. endchar;
  140.  
  141. % stop"";
  142.  
  143. beginchar(8,24/22size#,23/22size#,1/22size#); "lewy dolny rog";
  144.   pickup pencircle scaled border_line_thickness;
  145.   lft x1=.5w; y1=11/24w;
  146.   z2=(.5w,h);
  147.   z3=(w,11/24w);
  148.   x4=.5w; bot y4=11/24w;
  149.   draw z1..z3;
  150.   draw z2..z4;
  151.   pickup penrazor scaled border_line_thickness;
  152.   z5=(.5w,11/24w+.5border_line_thickness); 
  153.   z6=(.5w,11/24w-.5border_line_thickness); 
  154.   draw z5..z6;
  155. showit;
  156. endchar;
  157.  
  158. % stop"";
  159.  
  160. beginchar(9,24/22size#,23/22size#,1/22size#); "prawy dolny rog";
  161.   pickup pencircle scaled border_line_thickness;
  162.   z1=(0,11/24w);
  163.   z2=(.5w,h);
  164.   rt x3=.5w; y3=11/24w;
  165.   x4=.5w; bot y4=11/24w;
  166.   draw z1..z3;
  167.   draw z2..z4;
  168.   pickup penrazor scaled border_line_thickness;
  169.   z5=(.5w,11/24w+.5border_line_thickness);
  170.   z6=(.5w,11/24w-.5border_line_thickness);
  171.   draw z5..z6;
  172. showit;
  173. endchar;
  174.  
  175. % stop"";
  176.  
  177. beginchar(10,24/22size#,23/22size#,1/22size#); "pelny krzyz - pion";
  178.   pickup pencircle scaled line_thickness;
  179.   z1=(0,11/24w);
  180.   z2=(.5w,h);
  181.   z3=(w,11/24w);
  182.   z4=(.5w,-d);
  183.   draw z1..z3;
  184.   draw z2..z4;
  185.   cullit;
  186.   addto currentpicture also -black_circle;
  187. showit;
  188. endchar;
  189.  
  190. % stop"";
  191.  
  192. beginchar(11,24/22size#,23/22size#,1/22size#); "lewy brzeg - pion";
  193.   pickup pencircle scaled line_thickness;
  194.   lft x1=.5w; y1=11/24w;
  195.   z2=(.5w,h);
  196.   z3=(w,11/24w);
  197.   z4=(.5w,-d);
  198.   draw z1..z3;
  199.   pickup pencircle scaled border_line_thickness;
  200.   draw z2..z4;
  201.   cullit;
  202.   addto currentpicture also -black_circle;
  203. showit;
  204. endchar;
  205.  
  206. % stop"";
  207.  
  208. beginchar(12,24/22size#,23/22size#,1/22size#); "prawy brzeg - pion";
  209.   pickup pencircle scaled line_thickness;
  210.   z1=(0,11/24w);
  211.   z2=(.5w,h);
  212.   rt x3=.5w; y3=11/24w;
  213.   z4=(.5w,-d);
  214.   draw z1..z3;
  215.   pickup pencircle scaled border_line_thickness;
  216.   draw z2..z4;
  217.   cullit;
  218.   addto currentpicture also -black_circle;
  219. showit;
  220. endchar;
  221.  
  222. % stop"";
  223.  
  224. beginchar(13,24/22size#,23/22size#,1/22size#); "gorny brzeg - pion";
  225.   pickup pencircle scaled border_line_thickness;
  226.   z1=(0,11/24w);
  227.   x2=.5w; top y2=11/24w;
  228.   z3=(w,11/24w);
  229.   z4=(.5w,-d);
  230.   draw z1..z3;
  231.   pickup pencircle scaled line_thickness;
  232.   draw z2..z4;
  233.   cullit;
  234.   addto currentpicture also -black_circle;
  235. showit;
  236. endchar;
  237.  
  238. % stop"";
  239.  
  240. beginchar(14,24/22size#,23/22size#,1/22size#); "dolny brzeg - pion";
  241.   pickup pencircle scaled border_line_thickness;
  242.   z1=(0,11/24w);
  243.   z2=(.5w,h);
  244.   z3=(w,11/24w);
  245.   x4=.5w; bot y4=11/24w;
  246.   draw z1..z3;
  247.   pickup pencircle scaled line_thickness;
  248.   draw z2..z4;
  249.   cullit;
  250.   addto currentpicture also -black_circle;
  251. showit;
  252. endchar;
  253.  
  254. % stop"";
  255.  
  256. beginchar(15,24/22size#,23/22size#,1/22size#); "lewy gorny rog - pion";
  257.   pickup pencircle scaled border_line_thickness;
  258.   lft x1=.5w; y1=11/24w;
  259.   x2=.5w; top y2=11/24w;
  260.   z3=(w,11/24w);
  261.   z4=(.5w,-d);
  262.   draw z1..z3;
  263.   draw z2..z4;
  264.   pickup penrazor scaled border_line_thickness;
  265.   z5=(.5w,11/24w+.5border_line_thickness); 
  266.   z6=(.5w,11/24w-.5border_line_thickness); 
  267.   draw z5..z6;
  268.   cullit;
  269.   addto currentpicture also -black_circle;
  270. showit;
  271. endchar;
  272.  
  273. % stop"";
  274.  
  275. beginchar(16,24/22size#,23/22size#,1/22size#); "prawy gorny rog - pion";
  276.   pickup pencircle scaled border_line_thickness;
  277.   z1=(0,11/24w);
  278.   x2=.5w; top y2=11/24w;
  279.   rt x3=.5w; y3=11/24w;
  280.   z4=(.5w,-d);
  281.   draw z1..z3;
  282.   draw z2..z4;
  283.   pickup penrazor scaled border_line_thickness;
  284.   z5=(.5w,11/24w+.5border_line_thickness); 
  285.   z6=(.5w,11/24w-.5border_line_thickness); 
  286.   draw z5..z6;
  287.   cullit;
  288.   addto currentpicture also -black_circle;
  289. showit;
  290. endchar;
  291.  
  292. % stop"";
  293.  
  294. beginchar(17,24/22size#,23/22size#,1/22size#); "lewy dolny rog - pion";
  295.   pickup pencircle scaled border_line_thickness;
  296.   lft x1=.5w; y1=11/24w;
  297.   z2=(.5w,h);
  298.   z3=(w,11/24w);
  299.   x4=.5w; bot y4=11/24w;
  300.   draw z1..z3;
  301.   draw z2..z4;
  302.   pickup penrazor scaled border_line_thickness;
  303.   z5=(.5w,11/24w+.5border_line_thickness); 
  304.   z6=(.5w,11/24w-.5border_line_thickness); 
  305.   draw z5..z6;
  306.   cullit;
  307.   addto currentpicture also -black_circle;
  308. showit;
  309. endchar;
  310.  
  311. % stop"";
  312.  
  313. beginchar(18,24/22size#,23/22size#,1/22size#); "prawy dolny rog - pion";
  314.   pickup pencircle scaled border_line_thickness;
  315.   z1=(0,11/24w);
  316.   z2=(.5w,h);
  317.   rt x3=.5w; y3=11/24w;
  318.   x4=.5w; bot y4=11/24w;
  319.   draw z1..z3;
  320.   draw z2..z4;
  321.   pickup penrazor scaled border_line_thickness;
  322.   z5=(.5w,11/24w+.5border_line_thickness);
  323.   z6=(.5w,11/24w-.5border_line_thickness);
  324.   draw z5..z6;
  325.   cullit;
  326.   addto currentpicture also -black_circle;
  327. showit;
  328. endchar;
  329.  
  330. % stop"";
  331.  
  332. end;
  333.  
  334.